object ColorCyclingRangeForm: TColorCyclingRangeForm Left = 207 Top = 99 Width = 275 Height = 203 Caption = 'Range' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 Scaled = False OnCreate = FormCreate TextHeight = 16 object Label1: TLabel Left = 5 Top = 12 Width = 93 Height = 16 Caption = 'Starting color' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 5 Top = 56 Width = 88 Height = 16 Caption = 'Ending color' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 5 Top = 100 Width = 92 Height = 16 Caption = 'Steps (1-256)' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object StartColorShape: TShape Left = 98 Top = 8 Width = 135 Height = 24 end object EndColorShape: TShape Left = 98 Top = 52 Width = 135 Height = 24 end object ChangeStartColorSpeedBtn: TSpeedButton Left = 232 Top = 8 Width = 25 Height = 24 Hint = 'Click here to change color' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 777777777777777777777777777077777777777777778F777777777777000777 77777777777888F77777777770000077777777777788888F7777777700000007 7777777778888888F77777700000000077777777888888888777777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = ChangeStartColorSpeedBtnClick end object ChangeEndColorSpeedBtn: TSpeedButton Left = 232 Top = 52 Width = 25 Height = 24 Hint = 'Click here to change color' Glyph.Data = { 90010000424D9001000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 777777777777777777777777777077777777777777778F777777777777000777 77777777777888F77777777770000077777777777788888F7777777700000007 7777777778888888F77777700000000077777777888888888777777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777777777777777777777777777777777777777777000000000000 0000000000000000000000000000000000000000} NumGlyphs = 2 OnClick = ChangeEndColorSpeedBtnClick end object StepsEdit: TEdit Left = 101 Top = 96 Width = 41 Height = 24 TabOrder = 0 OnChange = StepsEditChange end object OkBtn: TBitBtn Left = 33 Top = 136 Width = 89 Height = 33 TabOrder = 1 OnClick = OkBtnClick Kind = bkOK end object CancelBtn: TBitBtn Left = 145 Top = 136 Width = 89 Height = 33 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 Kind = bkCancel end object ColorDialog1: TColorDialog Left = 184 Top = 88 end end